home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 7.st / VCR_ORG.ARC / IN_MOD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-11  |  6.6 KB  |  224 lines
  1. {$M+}
  2. {$E+}
  3.  
  4. program Input_Module;
  5.  
  6. {$I A:GEMSUBS.PAS }
  7. {$I A:AUXSUBS.PAS }
  8.  
  9.   Const
  10.        {$I B:VCR_Cnst.Pas }
  11.  
  12.   Type
  13.        {$I B:VCR_Type.Pas }
  14.  
  15.   Var
  16.        {$I B:VCR_Var.Pas }
  17.  
  18.  
  19.   procedure Empty_Line(X, Y, Z : integer);
  20.      External ;
  21.  
  22.   procedure Ret_Record;
  23.      External ;
  24.  
  25.   procedure Ret_Tape;
  26.      External ;
  27.  
  28.   procedure New_Cursor;
  29.      External ;
  30.  
  31.   procedure Erase_Cursor;
  32.      External ;
  33.  
  34.   procedure LetterSelect(i : integer);
  35.      External ;
  36.  
  37.   procedure SelectSave ;
  38.      External ;
  39.  
  40.  
  41.  procedure Keyboard_Input;
  42.  
  43.   var
  44.      i : integer ;
  45.  
  46.   begin
  47.     if Module = Wind_Handle[1] then
  48.         begin
  49.           Hide_Mouse;
  50.           Len := Length(Input_String[Field]);
  51.           X_Cursor := x0 + XY_VCR[1,Field] + 8 * Len;
  52.           Y_Cursor := y0 + XY_VCR[2,Field] * Resolution;
  53.  
  54.           if (Gem_Result.LoByte = $13) AND        { ^S -- Save }
  55.              (Gem_Result.HiByte = $1F) then
  56.              SelectSave ;
  57.  
  58.           if (Gem_Result.LoByte > $1F) AND        { Printable Characters }
  59.              (Gem_Result.LoByte < $7F) then
  60.              begin
  61.                if Len < XY_VCR[3,Field] then
  62.                   begin
  63.                     Draw_String(X_Cursor, Y_Cursor, Gem_Result.character);
  64.                     Input_String[Field] := Concat(Input_String[Field],
  65.                                                   Gem_Result.character);
  66.                     X_Cursor := X_Cursor + 8;
  67.                 end
  68.              end
  69.           else
  70.  
  71.              if (Gem_Result.LoByte = $7F) OR      { Delete or Backspace }
  72.                 (Gem_Result.LoByte = $08) then
  73.                 begin
  74.                   if Len > 0 then
  75.                      begin
  76.                        Empty_Line(X_Cursor - 8, Y_Cursor, 2);
  77.                        Delete(Input_String[Field], Len, 1);
  78.                        X_Cursor := X_Cursor - 8;
  79.                      end;
  80.                 end
  81.              else
  82.  
  83.                 if (Gem_Result.LoByte = $0D) OR          { Return }
  84.                    ((Gem_Result.LoByte = 0) AND          { Down Arrow }
  85.                     (Gem_Result.HiByte = $50)) OR  
  86.                    ((Gem_Result.LoByte = $09) AND        {  TAB  }
  87.                     (Gem_Result.HiByte = $0F))   then
  88.                    begin
  89.                      Erase_Cursor;
  90.                      Field := Field + 1;
  91.                      if Module = Wind_Handle[1] then
  92.                         if Field > 15 then Field := 3;
  93.                      New_Cursor;
  94.                    end
  95.                 else
  96.  
  97.                    if ((Gem_Result.LoByte = 0) AND       { Up Arrow }
  98.                        (Gem_Result.HiByte = $48)) then
  99.                        begin
  100.                          Erase_Cursor;
  101.                          Field := Field - 1;
  102.                          if Module = Wind_Handle[1] then
  103.                             if Field <  3 then Field := 15;
  104.                          New_Cursor;
  105.                        end
  106.                    else
  107.  
  108.                       if (Gem_Result.LoByte = $1B) AND    { ESC -- Clear Line }
  109.                          (Gem_Result.HiByte = $01) then
  110.                            if Len > 0 then
  111.                               begin
  112.                                 Erase_Cursor;
  113.                                 for i := 1 to Len do
  114.                                     Draw_String(x0 + XY_VCR[1,Field] + 8 * i,
  115.                                         y0 + XY_VCR[2,Field] * Resolution, Sp);
  116.                                 Input_String[Field] := No_Sp;
  117.                                 X_Cursor := x0 + XY_VCR[1,Field];
  118.                               end;
  119.  
  120.           if NOT (Gem_Result.LoByte = $13) AND        { ^S -- Save }
  121.              NOT (Gem_Result.HiByte = $1F) then
  122.              Draw_String(X_Cursor, Y_Cursor, UnderLine);
  123.           Show_Mouse;
  124.         end;
  125.   end;
  126.  
  127.  
  128.   procedure MB_Main;
  129.  
  130.    var
  131.        i : integer;
  132.  
  133.     begin
  134.       with Gem_Result do
  135.            begin
  136.              for i := 0 to 26 do
  137.                  if (X_Mouse > 16 + i * 13) AND (X_Mouse < 27 + i * 13) AND
  138.                     (Y_Mouse > (48 - i) * Resolution) AND
  139.                     (Y_Mouse < (57 - i) * Resolution) then
  140.                        begin
  141.                          Letter := i;
  142.                          LetterSelect(i);
  143.                        end;
  144.            end;
  145.     end;
  146.  
  147.  
  148.  procedure MB_Movie;
  149.  
  150.   var
  151.       c : char;
  152.  
  153.   begin
  154.     with Gem_Result do
  155.        begin
  156.          if (Y_Mouse > y0 +  4 * Resolution) AND
  157.             (Y_Mouse < y0 + 14 * Resolution) then
  158.             begin
  159.               if (X_Mouse > x0 + 192) AND (X_Mouse < x0 + 264) then
  160.                  begin
  161.                    if VCR_Check[1,Tape_Current] then
  162.                       begin
  163.                         VCR_Check[1,Tape_Current] := false;
  164.                         Input_String[1] := chr($20);
  165.                       end
  166.                    else
  167.                       begin
  168.                         VCR_Check[1,Tape_Current] := true;
  169.                         Input_String[1] := chr($08);
  170.                       end;
  171.                    Hide_Mouse;
  172.                    Draw_String(x0 + XY_VCR[1,1],
  173.                                y0 + XY_VCR[2,1] * Resolution, Input_String[1]);
  174.                    Show_Mouse;
  175.                  end
  176.               else
  177.                  if (X_Mouse > x0 + 320) AND (X_Mouse < x0 + 412) then
  178.                      begin
  179.                        if VCR_Check[2,Tape_Current] then
  180.                           begin
  181.                             VCR_Check[2,Tape_Current] := false;
  182.                             Input_String[2] := chr($20);
  183.                           end
  184.                        else
  185.                           begin
  186.                             VCR_Check[2,Tape_Current] := true;
  187.                             Input_String[2] := chr($08);
  188.                           end;
  189.                        Hide_Mouse;
  190.                        Draw_String(x0 + XY_VCR[1,2],
  191.                                    y0 + XY_VCR[2,2] * Resolution,
  192.                                    Input_String[2]);
  193.                        Show_Mouse;
  194.                      end;
  195.             end;
  196.        end;
  197.   end;
  198.  
  199.  
  200.  procedure MB_Input;
  201.  
  202.    var
  203.        Rec_Name : integer;
  204.  
  205.   begin
  206.     if Module = Wind_Handle[1] then
  207.        MB_Movie
  208.     else
  209.        if Module = Wind_Handle[2] then
  210.        else
  211.           if Module = Wind_Handle[3] then
  212.              MB_Main
  213.           else
  214.              if Module = Wind_Handle[4] then
  215.                 Ret_Record
  216.              else
  217.                 if Module = Wind_Handle[5] then
  218.                    Ret_Tape;
  219.   end;
  220.  
  221.  
  222. BEGIN
  223. END.
  224.